home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / News Stack™ 1.1.cpt / News Stack™ 1.1 / News Stack 1.1a2 / background_4579.txt < prev    next >
Text File  |  1987-09-04  |  4KB  |  210 lines
  1. -- background: 4579 from stack: in.1a2
  2. -- bmap block id: 4788
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9.   hide menubar
  10. end openBackground
  11.  
  12. on openCard
  13.   put ((the number of this card)) into field "card #"
  14.   put ((the number of cards)) into field "card total"
  15.   if field date is empty then put the date into field date
  16. end openCard
  17.  
  18.  
  19. -- part 10 (field)
  20. -- low flags: 00
  21. -- high flags: 2007
  22. -- rect: left=13 top=9 right=270 bottom=493
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 3
  27. -- text size: 10
  28. -- style flags: 0
  29. -- line height: 13
  30. -- part name: main
  31.  
  32.  
  33. -- part 11 (field)
  34. -- low flags: 01
  35. -- high flags: 0000
  36. -- rect: left=154 top=272 right=287 bottom=184
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 65535
  40. -- font id: 3
  41. -- text size: 9
  42. -- style flags: 0
  43. -- line height: 12
  44. -- part name: card #
  45.  
  46.  
  47. -- part 12 (field)
  48. -- low flags: 01
  49. -- high flags: 0000
  50. -- rect: left=195 top=272 right=287 bottom=228
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 3
  55. -- text size: 9
  56. -- style flags: 0
  57. -- line height: 12
  58. -- part name: Card Total
  59.  
  60.  
  61. -- part 13 (field)
  62. -- low flags: 01
  63. -- high flags: 0000
  64. -- rect: left=40 top=272 right=286 bottom=112
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 3
  69. -- text size: 9
  70. -- style flags: 0
  71. -- line height: 12
  72. -- part name: Source
  73.  
  74.  
  75. -- part 17 (field)
  76. -- low flags: 01
  77. -- high flags: 0000
  78. -- rect: left=240 top=272 right=286 bottom=309
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 9
  84. -- style flags: 0
  85. -- line height: 12
  86. -- part name: date
  87.  
  88.  
  89. -- part 18 (button)
  90. -- low flags: 00
  91. -- high flags: A001
  92. -- rect: left=299 top=272 right=288 bottom=338
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Clip
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   global clippingStr
  104.   put return after clippingStr
  105.   put "------------------------------" after clippingStr
  106.   put return after clippingStr
  107.   put field main after clippingStr
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 19 (button)
  113. -- low flags: 00
  114. -- high flags: A001
  115. -- rect: left=341 top=272 right=288 bottom=380
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Zap
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   answer "Delete this card?:" with "Delete" or "Cancel"
  127.   domenu "delete card"
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 21 (button)
  133. -- low flags: 00
  134. -- high flags: 0000
  135. -- rect: left=466 top=271 right=288 bottom=494
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 6720 / 6720
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Return
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   visual effect iris close
  147.   pop card
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 22 (button)
  153. -- low flags: 00
  154. -- high flags: 0000
  155. -- rect: left=385 top=273 right=290 bottom=412
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 20689 / 20689
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Home
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   visual effect iris open
  167.   go Home
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 23 (button)
  173. -- low flags: 00
  174. -- high flags: 0000
  175. -- rect: left=411 top=271 right=288 bottom=439
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 15420 / 15420
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Prev
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   visual effect wipe right
  187.   go to previous card
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 24 (button)
  193. -- low flags: 00
  194. -- high flags: 0000
  195. -- rect: left=440 top=271 right=288 bottom=464
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 16560 / 16560
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Next
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   visual effect wipe left
  207.   go to next card
  208. end mouseUp
  209.  
  210.